home *** CD-ROM | disk | FTP | other *** search
/ The Dream Of Mars / The Dream of Mars.iso / Muze.dxr / 00002.ls next >
Encoding:
Text File  |  1996-12-31  |  2.6 KB  |  93 lines
  1. on exitFrame
  2.   global myCD
  3.   set the blend of sprite 1 to 0
  4.   set the blend of sprite 2 to 0
  5.   set the blend of sprite 3 to 0
  6.   set the visible of sprite 1 to 0
  7.   set the visible of sprite 2 to 0
  8.   set the visible of sprite 3 to 1
  9.   updateStage()
  10.   set the text of member "poete" to "I've seen so much that you humans wouldn't believe..."
  11.   updateStage()
  12.   sound playFile 3, myCD & "\sounds\life.wav"
  13.   attend()
  14.   set the loc of sprite 3 to point(620, 240)
  15.   updateStage()
  16.   set the text of member "poete" to "I've seen so much that you humans wouldn't believe..."
  17.   updateStage()
  18.   repeat with a = 50 down to 0
  19.     set the blend of sprite 3 to 100 - (a * 2)
  20.     if the mouseDown = 1 then
  21.       sound fadeOut 3, 1 * 60
  22.       attend()
  23.       attend()
  24.       sound stop 3
  25.       play done
  26.     end if
  27.     updateStage()
  28.   end repeat
  29.   attend()
  30.   set the text of member "poete" to "Great spaceships on fire, flying from the shoulder of Orion..."
  31.   repeat with I = 310 down to 10
  32.     set the loc of sprite 3 to point(I * 2, 240)
  33.     if the mouseDown = 1 then
  34.       sound fadeOut 3, 1 * 60
  35.       attend()
  36.       attend()
  37.       sound stop 3
  38.       play done
  39.     end if
  40.     updateStage()
  41.   end repeat
  42.   set the text of member "poete" to "Fabulous beams, C-rays glowing in the shadow of Tannhauser's Door..."
  43.   updateStage()
  44.   set the blend of sprite 2 to 0
  45.   updateStage()
  46.   set the loc of sprite 2 to point(20, 240)
  47.   updateStage()
  48.   set the visible of sprite 2 to 1
  49.   repeat with a = 25 down to 0
  50.     set the blend of sprite 2 to 100 - (a * 4)
  51.     set the blend of sprite 3 to a * 4
  52.     updateStage()
  53.   end repeat
  54.   set the visible of sprite 3 to 0
  55.   attend()
  56.   repeat with I = 310 down to 10
  57.     set the loc of sprite 2 to point(640 - (I * 2), 240)
  58.     if the mouseDown = 1 then
  59.       sound fadeOut 3, 1 * 60
  60.       attend()
  61.       attend()
  62.       sound stop 3
  63.       play done
  64.     end if
  65.     updateStage()
  66.   end repeat
  67.   set the loc of sprite 1 to point(620, 240)
  68.   updateStage()
  69.   set the visible of sprite 1 to 1
  70.   set the text of member "poete" to EMPTY
  71.   repeat with a = 25 down to 0
  72.     set the blend of sprite 1 to 100 - (a * 4)
  73.     set the blend of sprite 2 to a * 4
  74.     updateStage()
  75.   end repeat
  76.   set the visible of sprite 2 to 0
  77.   attend()
  78.   set the text of member "poete" to "All these moments will be lost to time, like tears in rain..."
  79.   set the text of member "blade" to "(Replicant, 'BladeRunner')"
  80.   updateStage()
  81.   repeat with I = 310 down to 150
  82.     set the loc of sprite 1 to point(I * 2, 240)
  83.     if the mouseDown = 1 then
  84.       sound fadeOut 3, 1 * 60
  85.       attend()
  86.       attend()
  87.       sound stop 3
  88.       play done
  89.     end if
  90.     updateStage()
  91.   end repeat
  92. end
  93.